home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00600_credit scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  1.2 KB  |  42 lines
  1. global gCreditPage
  2.  
  3. on creditPageBack
  4.   set gCreditPage to gCreditPage - 1
  5.   set c to the number of cast "first credits page" + gCreditPage
  6.   put field c into field "PageCredits"
  7.   updateStage()
  8.   if gCreditPage = 0 then
  9.     highlight(9)
  10.   else
  11.     unhighlight(9)
  12.   end if
  13.   if the castNum of sprite 10 = the number of cast "PageAheadGray" then
  14.     set the castNum of sprite 10 to the castNum of sprite 10 - 2
  15.   end if
  16.   updateStage()
  17. end
  18.  
  19. on creditPageAhead
  20.   set gCreditPage to gCreditPage + 1
  21.   set c to the number of cast "first credits page" + gCreditPage
  22.   put field c into field "PageCredits"
  23.   updateStage()
  24.   if the number of cast "last credits page" = c then
  25.     set the castNum of sprite 10 to the castNum of sprite 10 + 1
  26.   else
  27.     set the castNum of sprite 10 to the castNum of sprite 10 - 1
  28.   end if
  29.   if the castNum of sprite 9 = the number of cast "PageBackGray" then
  30.     set the castNum of sprite 9 to the castNum of sprite 9 - 2
  31.   end if
  32.   updateStage()
  33. end
  34.  
  35. on creditPageOne
  36.   setPlace(#CREDITS, #NOCHANGE)
  37.   set gCreditPage to 0
  38.   put field "first credits page" into field "PageCredits"
  39.   set the castNum of sprite 10 to the castNum of sprite 10 - 2
  40.   updateStage()
  41. end
  42.